Notes on Starting FORTH for the fig-FORTH User 

A very popular book on the FORTH language called 
StaAting FORTH has recently been published. The author, 
Leo Brodie, gives an excellent description of the FORTH 
language as implemented at FORTH, Inc. fig-FORTH differs 
from that implementation in some areas, and this document 
explains those differences. All comments that apply to 
fig-FORTH also apply to valFORTH. 

BLANK = BLANKS (page 285) 

Brodie describes the word BLANK. In fig-FORTH, this 
word is BLANKS. 

EMPTY-BUFFERS vs. EMPTY-BUFFERS (page 283) 

Brodie's word EMPTY-BUFFERS does not necessarily 
change the buffers. In fig-FORTH, EMPTY-BUFFERS zero 
fills the buffers. 

CONTEXT vs. CONTEXT (page 247) 

These two words are not synonymous in the two 
versions. fig-FORTH uses a system of VOC-LINKS with 
CONTEXT, while FORTH, Inc. does not. 

EXIT = ;S (page 246) 

The word EXIT, as Brodie describes it, is identical 
in function to ;S |n fig-FORTH. 

1 S = SP@ (page 247) 

The word 'S in FORTH, Inc.'s is SP@ in fig-FORTH. 
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EMPTY (pa gje 84) 

Not yet implemented in fig-FORTH. 

WIPE vs. CLEAR (page 84) 

CLEAR requires a screen number while WIPE clears 
the last screen edited. 

ABORT" (page 103) 

Not implemented in fig-FORTH. 

?DUP = -DUP (page 103) 

The word ?DUP in FORTH, Inc.'s is -DUP in fig-FORTH. 

7STACK vs. 7STACK (page 103) 

7STACK as described by Brodie is incorrect for fig- 
FORTH. 7STACK in fig-FORTH automatically aborts if there 
is a stack error. 

NEGATE = MINUS, DNEGATE = DMINUS (pages 123, 178) 

The words NEGATE and DNEGATE in FORTH, Inc.'s are 
MINUS and DMINUS respectively in fig-FORTH. 

+L00P vs. +L00P (Page 143) 

The word +L00P, as Brodie describes it, works 
differently for negative stepping than the +L00P in 
fig-FORTH. fig-FORTH always ends if the index equals the 
limit, even for negative stepping. 

PAGE = CLS (page 143) 

Brodie's PAGE is called CLS in valFORTH. It has no 
equivalent in fig-FORTH. 
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U/MOD = U/ (page 177) 

Brodie's U/MOD is U/ in fig-FORTH. 

CREATE vs. CREATE (page 209) 

Brodie's CREATE works differently from CREATE in 
fig-FORTH. A word using CREATE in fig-FORTH must unSMUDGE 
the header before the word can be used. The unsmudges 
headers automatically. In addition, Brodie's CREATE and 
fig-FORTH CREATE move different default values in the CFA 
of the created header (see below). 

CREATE = <BUILDS (page 209) 

In Brodie's chapter 11 on extending the compiler, he 
uses the series CREATE...D0ES>. In fig-FORTH, this should 
be <BUILDS...D0ES>. 

NUMBER vs. NUMBER (page 285) 

Brodie's NUMBER only converts numbers to double 
length if the double word set is loaded. fig-FORTH 
always converts numbers to double length. 

>IN = IN, H = DP (page 247) 

The variable >IN and H in Brodie's FORTH are IN and 
DP respectively in fig-FORTH. 

VARIABLE vs. VARIABLE (page 209) 

The word VARIABLE, as Brodie describes it, accepts 
no value from the stack. fig-FORTH, on the other hand, 
does expect an initialization value from the stack. 

' vs. ' (page 215) 

These words are not synonymous. ' in Brodie is 
the same as ' 2- in fig-FORTH (or, more properly, ' CFA.) 
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val FORTH, for ; Atari 400/800* 
Software Update #1 


( 1 ) 6502 Macro Assembler Bug 

o 

A bug in the assembler causes ADC,*. AND, CMP, EOR, LDA, 
ORA, SBC, and STA, to incorrectly assemble the 
"absolute,Y" instruction when the "absolute" address lies 
in the zero page. The problem is that the assembler 
assumes a "zero,Y" address mode ;far these instructions 
when in fact none exists. To fix this problem, change 
screen 85 of the val FOFJTH di-Sfc so that it matches the 
screen shown in the listings. 


(2) A Display Formatter Bug 

• ^ . i «/ 

Although afilp.spl ay list can be created without error, the 
routine which moves the list from the work area to its 
functional address transfers three bytes too few and so 
leaves behind the "wait and jump on vertical blank" 
instruction. The display list will appear to work 
correctly in many cases, but the bug should be fixed. To 
make this correction, change < the, last line of code on 
screen 49 of the Display Formatter disk tdread: 

DSPEND 5) 3 + CMQVE 5 r < V 


<3) Shuffling Too Well 

; . c. 

The words SHUFL and CSHUFL on screen 14j3 of the Utilities/ 
Editor package rearrange a sequence of Memory locations so 
that data never end up in the same location as before the 
shuffle. While this is interesting:-, 'it. is not what was 
intended. For a more normal shuffle, replace the phrase 
DUP I CHOOSE by DUP I 1 + CHOOSE in lines 5 and 12. 


(4) A Bug in the Disk FORMATter ~ 

(FMT) which is used by FORMAT crashes the system if used 
as the first disk access after boot. This is because the 
ROM routine called by (FMT) leaves 128 „(not two, as 
documented by Atari) bytes^^f : ^',b^$J Sector m«ip" data ip, 
memory :*^t ^ Scati on * speqirf memory location^ 772 

decimal. S\p x c&$%G&$(t 72 ’dbhtai ns zero on . boot, the 

bad sector map is written starting at address zerq^, which 
is fatal. There are sever a 1 safe pT aqes to pcfi/ht 772. PAD 
is okay if you"to ‘^xn^ (v the-d^&y^S^/or are 
willing to sarcnr?i fw # 1 v what^ ; v^ n) ^wa?s r f at U ’PAD ' nn Ypc?ssi bl y 
strings) . ROM Tat >*£000 = 57344 (dec i mal >is" okay if you 
just want to get rid of the bad sector data, but someday 
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Atari may put RAM there in a new machine, with the old ROM 
code loaded in from disk, so this may not work forever. 
Here is the fix for putting the map at PAD: 

s (FMT) ( unit — status ) 

PAD 772 ! (FMT) ; 

This fix should be made before either the val F'ORTH or 
valDOS FORMAT command is loaded. 


(5) A bug in D< 

The word D< fails to work correctly when its two arguments 
are the negatives of each other (e.g., 20000 . and - 20000 .) 
The following definition (taken from FORTH DIMENSIONS 
Volume IV, Number 1) replaces the one found on screen 121 
of the general utilities package. 

s D< ( dl d 2 — f ) 

ROT 2DUP = 

IF 

<ROT DMINUS D+ 0 < 

ELSE 

SWAP < SWAP DROP 
END IF 

SWAP DROP 5 

Note that there are three additional double length words 
found on screen 120 of the the valGRAPHICS disk. They are 
DU/MOD , D/MOD , and D/ , Here.are the definitions for 
two additional words to round out the sets (D* was taken 
from FORTH DIMENSIONS Volume IV, Number 1) 

: DMOD ( d1 d2 — drem ) 

D/MOD 2DR0P ; 

s D* ( dl d2 — d3 ) 

OVER 5 PICK U* 

6 ROLL 4 ROtjL * + * ‘ > 

2SWAP * •+• ; 


( 6 ) Buqs 'in U* and U/ { . -v.v •' 

i 

Both U* and U/ v KafVe b^g^.c^ftr.ied aver from the (original 
fig model. In aMixT&n, 'the 'VH X*'- -published in FORTH 
Dimensions (val IV, no. 2) also works incorrectly. If v ■ ? 
are using another version of FORTH for the Atari, Apple, 
or other 6502 microcomputer, you can determine i he 
bugs have been corrected by making the following two 
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BSCD> ( al a 2 n - ) 

Moves; n characters from address al to address a2, 
translating from Atari screen code to ATASCII on the 
way. Used for reading text directly from the screen 
(as in the video editor). 

>SCD ( c - c ) 

Translates a single character on stack from ATASCII 
to screen code. 

SCD> ( e - c ) 

Translates a single character on the stack from 
screen code? to ATASCII. 


(16) Notes on valDOS 

Before exchanging disks, the CLOSE command (like 
FLUSH) should always be issued. This prevents updated 
files from one disk to be accidently flushed to another 
disk. It would be a good idea to CLOSE often just as a 
precaution. 

Also, the description of the system word (ENDF) on 
LX 1,11 - 3 fails to point out that a status byte is 
returned. The stack notation should be "fl# — f". if 
(LNDF) returns a 1, the operation was successful, 
otherwise a zero is returned. 

Next., there is a set. of file buffers set aside for 
use with open files. The constant MAXFL contains the 
maximum number of files which can be open at any one time. 
If MAXFL is changed, the entire valDOS system must be 
recompiled. The quan WRKSPC points 128 bytes down from 
the top of the file buffer area. Currently the file buffer 
area is stored in the middle of the dictionary (see screen 
15). If these buffers are moved, the word TOPOM must be 
changed to reflect the true top of free memory (i.e., if 
the buffers are moved to top of memory just below the 
display list, TOPOM must be changed to point to the bottom 
of the buffers — BUFBOT). 

Because the integrity of any Disk Operating System is 
vital, we would greatly appreciate it if any bugs found 
are reported immediately for correction. Thank you! 


IMPORTANT ****** IMPORTANT ****** IMPORTANT ****** IMPORTANT 

In order to get your copy of SOFTWARE UPDATE #2, send 
$1.00 and a stamped, self-addressed envelope to: 

valFORTH SOFTWARE UPDATE #2 
3801 E „ 34tht i St. r eet, Suite 105 
Tucson, As 85713 
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